Возвращает количество свободной памяти, доступной для пользователя на указанном дисководе или совместно используемом сетевом накопителе. Доступ только для чтения.

object.FreeSpace

Параметры
object объект типа Drive

Замечания
Свойство FreeSpace возвращает обычно такое же значение, как и свойство AvailableSpace. Различие двух возвращаемых значений может появиться в тех вычислительных системах, которые поддерживают кавычки.

Пример
Следующий код иллюстрирует использование FreeSpace свойства:

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub